module parameters_mod
IMPLICIT NONE


INTEGER, parameter :: shocksN=10,kgridN = 175,KgridNegN=30,typesN=2,max_retire_working=35

INTEGER, parameter :: simulationsN=10000,yr_T=100

INTEGER, parameter ::  J=81, Jnr=47,jretired=46,max_tax_loop=1,max_outer_loops=325,max_non_clear=325
INTEGER :: household,rebate_to_old,negative_taxes,labor_capital_rebate_base,flat_tax,no_carbon_tax,year_calculating

DOUBLE PRECISION   :: kgrid(kgridN),epsilon1((Jnr-1),1),alpha1,alpha2,delta,ss_ig(typesN,(shocksN)/2), sigma1,sigma2,sigma3,sigmay,pe(yr_T)
DOUBLE PRECISION   :: beta,chi,theta,lambdaa,tauss(yr_T),lambda,energy_share,taue,lump_sum(yr_T),lambda0_start,lambda1_start,ss_cap(yr_T)
DOUBLE PRECISION   :: lambda0_1(yr_T),gamma1,ebar,rebate_slope(yr_T),rebate_level(yr_T),&
    avg_earnings_scale,adult_equivalence(J),rebate_negative_tax
INTEGER ::  no_increase
!tr,
END module parameters_mod
